home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-scene-files / Coverdisks / CDU / V3D10.D64 / sec v2.00 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  1.3 KB  |  49 lines
  1. 100 POKE53280,0:POKE53281,0:POKE 650,128:PRINT"[147]":PRINT CHR$(14)
  2. 110 PRINT"[159]             [211]ECURITY [214]2.00[157][157][157][157][157][157][157][157][157][157][157][157][157][157][158][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  3. 200 PRINT"      [208]LEASE ENTER THE TIME [200][200][205][205][211][211][157][157][157][157][157][157]";
  4. 300 FOR X = 1 TO 6
  5. 400 GET A$(X):IF A$(X)=""THEN GOTO 400
  6. 500 IFASC(A$(X))<48ORASC(A$(X))>57 THEN GOTO 400
  7. 600 PRINT A$(X);
  8. 700 NEXT X
  9. 800 T$=A$(1)+A$(2)+A$(3)+A$(4)+A$(5)+A$(6)
  10. 900 IF VAL(T$)>235959ORVAL(T$)<000000ORLEN(T$)<>6 THEN GOTO 200
  11. 1000 IF  VAL(LEFT$(T$,2))>23THEN GOTO 200
  12. 1100 IF VAL(MID$(T$,3,2))>59THEN GOTO 200
  13. 1200 IF VAL(RIGHT$(T$,2))>59THEN GOTO 200
  14. 1250 PRINT:PRINT"       [208]RESS A KEY TO START CLOCK."
  15. 1260 GET L$:IF L$ = "" THEN GOTO 1260
  16. 1300 TI$=T$
  17. 1310 PRINT
  18. 1400 PRINT TAB(16)"[212]IME SET.":FOR X = 1 TO 2000:NEXT X:PRINT"[147]"
  19. 1500 PRINT"[208]LUG THE WIRE INTO PORT #1 AND CLOSE    THE DOOR.";
  20. 1700 IF PEEK(145)=255 THEN GOTO 1700
  21. 1800 PRINT"[147][196]OOR SHUT. [211]CANNING........."
  22. 1900 IFPEEK(145)=247THENGOTO2100
  23. 2000 GOTO 3100
  24. 2100 IFPEEK(56320)=111THEN GOTO 2300
  25. 2200 GOTO 1900
  26. 2300 PRINT"[208]RESSURE PAD DEPRESSED AT ";TI$
  27. 2400 IF PEEK(56320)=111THENGOTO 2400
  28. 2500 GOTO 1900
  29. 2600 REM
  30. 2700 REM *******************************
  31. 2800 REM *           CHECK!            *
  32. 2900 REM *******************************
  33. 3000 REM
  34. 3100 B = B + 1
  35. 3200 Q$=TI$
  36. 3300 PRINT"[194]REAK IN NO.";B;"STARTED AT ";Q$
  37. 3400 IFPEEK(145)=247THENPRINT"[194]REAK IN NO.";B;"FINISHED AT ";TI$
  38. 3450 IFPEEK(145)=247THENW=VAL(TI$)-VAL(Q$):GOTO 4000
  39. 3500 IFPEEK(56320)=111THEN GOTO 3700
  40. 3600 GOTO 3400
  41. 3700 PRINT"[208]RESSURE PAD DEPRESSED AT ";TI$
  42. 3800 IF PEEK(56320)=111THENGOTO 3800
  43. 3900 GOTO 3400
  44. 4000 PRINT"[204]ENGTH OF BREAK IN WAS ";W:GOTO 4400
  45. 4100 GOTO 4300
  46. 4200 PRINT"[204]ENGTH OF BREAK IN WAS ";W:GOTO 4400
  47. 4300 GOTO 3400
  48. 4400 GOTO 1900
  49.